00100		DIMENSION I(1000),JD(2000)
00200		READ(1)KX,(I(L),L=1,KX-4)
00300	5	TYPE 1
00400		ACCEPT 2,K,L
00410		CALL DPYSET(1,JD,2000)
00420		CALL DPYBRT(5)
00500		DO 3 J=1,KX-4
00600		M=I(J)/100000
00650		MX=M*100000
00700		N=(I(J)-MX)/10
00800		LL=I(J)-MX-N*10
00850		M=M-4000+K
00875		N=N-4000+L
00887		IF(LL-2)6,7,4
00900	7	CALL AVECT(M,N)
01000		GO TO 3
01100	4	CALL AIVECT(M,N)
01200	3	CONTINUE
01300	6	CALL DPYOUT(1)
01400		GO TO 5
01500	1	FORMAT(' TYPE'/)
01600	2	FORMAT(2I)
01700		END